Imports CrystalDecisions.CrystalReports.Engine
Public Class FrmCrMahoaHangHoa

    Private customerReport As ReportDocument
    Private Sub FrmCrMahoaHangHoa(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sqlQuery As String = "SELECT * FROM tbl_mahoathanhpham"
        Dim reportPath = Application.StartupPath & "\" & "CrMaHoaHangHoa.rpt"
        customerReport = New ReportDocument()
        customerReport.Load(reportPath)
        customerReport.SetDataSource(moduleReportConfig.GetDataTable(sqlQuery))
        Me.CrMaHoaHangHoaview.ReportSource = customerReport
    End Sub


End Class

